home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006b.dsk / SPIROGRAPH.bas < prev    next >
BASIC Source File  |  2003-06-12  |  534b  |  16 lines
  1. 30  HGR2 
  2. 100 K = 1.2
  3. 120  HCOLOR= 3
  4. 125  FOR X = 1 TO 20 * RND(1)  STEP  RND(1) *.2: NEXT X
  5. 140 M =  RND(1) *30 +3
  6. 150 N =  RND(1) *M +1
  7. 155 Q =  INT( RND(1) *6): IF Q = 0  OR Q = 4  THEN 155
  8. 156  HCOLOR= Q
  9. 160  FOR I = 0 TO 191: HPLOT 0,I TO 279,I: NEXT I
  10. 170 LX = 140:LY = 95
  11. 190  FOR A = 0 TO 256  STEP  RND(1) +.01
  12. 210 R =  SIN((M/N) *A) *90
  13. 220 X = 140 +K *R * SIN(A):Y = 95 +R * COS(A)
  14. 230  HCOLOR= 0: FOR Q = 1 TO 3: HPLOT LX +Q,LY +Q TO X +Q,Y +Q: NEXT Q
  15. 235  HCOLOR= 3: HPLOT LX,LY TO X,Y:LX = X:LY = Y
  16. 240  NEXT A: GOTO 140